home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS048.dsk / START.A.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  46 lines
  1. 5  REM           START.A
  2. 7  TEXT 
  3. 8 D$ = "<CTRL-D>": REM  CTRL-D
  4. 15  HOME 
  5. 20  VTAB 8
  6. 21  PRINT "      FREEZE/RELEASE - SPACE BAR"
  7. 23  PRINT : PRINT 
  8. 24  PRINT "  SELECT A NEW SCORE - KEYS 1-9, A-Z"
  9. 26  PRINT : PRINT 
  10. 27  PRINT "   MAY AFFECT SCORES - PADDLES/BUTTONS"
  11. 28  PRINT 
  12. 29  PRINT "           ( TRY IT AND SEE )"
  13. 31  PRINT : PRINT 
  14. 32  PRINT "GET MORE INFORMATION - 'ESC' KEY"
  15. 35  PRINT D$;"BLOAD CEEHI"
  16. 36  GOSUB 800
  17. 37  FOR A = 1 TO 24: PRINT : NEXT A
  18. 40  PRINT "         VAGABONDO  ENTERPRISES"
  19. 50  PRINT : PRINT 
  20. 60  PRINT "                PRESENTS"
  21. 70  FOR A = 1 TO 9: PRINT : NEXT A
  22. 100  PRINT D$;"BLOAD HIRES"
  23. 150  FOR A = 1 TO 14: PRINT : NEXT A
  24. 315  POKE  -16297,0: REM   SET HIRES
  25. 316  POKE  -16302,0: REM   CLEAR MIXED
  26. 317  POKE  -16304,0: REM   SET GRAPHICS
  27. 420  PRINT D$;"BLOAD SCORES"
  28. 430  PRINT D$;"BLOAD SHAPES"
  29. 500  PRINT D$;"BRUN  CEELO"
  30. 599  END 
  31. 800  REM       FREEZE/RELEASE
  32. 810 KEY =  PEEK( -16384)
  33. 815  IF KEY <128  THEN 899
  34. 817  IF KEY = 155  THEN 899
  35. 820  POKE  -16368,0
  36. 822  IF KEY = 160  THEN 830
  37. 825  CALL  -198: GOTO 899
  38. 830  VTAB 23: HTAB 17: POKE 50,127
  39. 833  PRINT "FROZEN"
  40. 840 KEY =  PEEK( -16384)
  41. 844  IF KEY <128  THEN 840
  42. 846  IF KEY = 155  THEN 860
  43. 850  POKE  -16368,0
  44. 860  POKE 50,255
  45. 899  RETURN 
  46. 999  END